home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 60.zip
/
BS1 part 60
/
Highspeed pascal.adf
/
Interface
/
Layers.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-01-16
|
2KB
|
111 lines
Unit Layers;
Interface
Uses Graphics, Input, Exec;
Type
pLayer_Info = ^tLayer_Info;
pLayer = ^tLayer;
pRastPort = ^tRastPort;
pClipRect = ^tClipRect;
pRegion = ^tRegion;
pBitMap = ^tBitMap;
pLibrary = ^tLibrary;
Var
LayersBase: pLibrary;
Procedure InitLayers (li: pLayer_Info);
Function CreateUpfrontLayer
(li: pLayer_Info;
bm: pBitMap;
x0: LongInt;
y0: LongInt;
x1: LongInt;
y1: LongInt;
flags: LongInt;
bm2: pBitMap): pLayer;
Function CreateBehindLayer
(li: pLayer_Info;
bm: pBitMap;
x0: LongInt;
y0: LongInt;
x1: LongInt;
y1: LongInt;
flags: LongInt;
bm2: pBitMap): pLayer;
Function UpfrontLayer
(li: LongInt;
layer: pLayer): LongInt;
Function BehindLayer
(li: LongInt;
layer: pLayer): LongInt;
Function MoveLayer
(li: LongInt;
layer: pLayer;
dx: LongInt;
dy: LongInt): LongInt;
Function SizeLayer
(li: LongInt;
layer: pLayer;
dx: LongInt;
dy: LongInt): LongInt;
Procedure ScrollLayer
(li: LongInt;
layer: pLayer;
dx: LongInt;
dy: LongInt);
Function BeginUpdate (layer: pLayer): LongInt;
Procedure EndUpdate
(layer: pLayer;
flag: Integer);
Function DeleteLayer
(li: LongInt;
layer: pLayer): LongInt;
Procedure LockLayer
(li: LongInt;
layer: pLayer);
Procedure UnlockLayer (layer: pLayer);
Procedure LockLayers (li: pLayer_Info);
Procedure UnlockLayers (li: pLayer_Info);
Procedure LockLayerInfo (li: pLayer_Info);
Procedure SwapBitsRastPortClipRect
(rp: pRastPort;
cr: pClipRect);
Function WhichLayer
(li: pLayer_Info;
x: Integer;
y: Integer): pLayer;
Procedure UnlockLayerInfo (li: pLayer_Info);
Function NewLayerInfo: pLayer_Info;
Procedure DisposeLayerInfo (li: pLayer_Info);
Function FattenLayerInfo (li: pLayer_Info): LongInt;
Procedure ThinLayerInfo (li: pLayer_Info);
Function MoveLayerInFrontOf
(layer_to_move: pLayer;
layer_to_be_infront_of: pLayer): LongInt;
Function InstallClipRegion
(layer: pLayer;
region: pRegion): pRegion;
End.